home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
COMMADIO
/
SAPPHIRE.LZH
/
SAPPHA.ZIP
/
SYSOP.BAT
< prev
next >
Wrap
DOS Batch File
|
1992-10-06
|
4KB
|
108 lines
@ECHO OFF
ECHO OFF
REM ───────────────────────────────────────────────────────────────────────
IF EXIST SYSOP.MNU GOTO AGAIN
CLS
ECHO
NOTE: Since you using a partial copy of the Sapphire
ECHO package, we will jump directly to the information menu.
PAUSE
IF EXIST INFO.MNU INFO Y
CLS
ECHO
Your Sapphire package is incomplete.
ECHO Contact Pinnacle Software at 514-345-9578 for assistance.
GOTO QUIT
REM ───────────────────────────────────────────────────────────────────────
:AGAIN
GO-MENU SYSOP.MNU 000 SAPPHIRE.MSV
IF ERRORLEVEL 10 GOTO QUIT
IF ERRORLEVEL 9 GOTO ERR
IF ERRORLEVEL 8 GOTO ERR
IF ERRORLEVEL 7 GOTO MISC
IF ERRORLEVEL 6 GOTO DSZ
IF ERRORLEVEL 5 GOTO STD
IF ERRORLEVEL 4 GOTO LOCAL
IF ERRORLEVEL 3 GOTO DEMO
IF ERRORLEVEL 2 GOTO CONFIG
IF ERRORLEVEL 1 GOTO INFO
GOTO ERR
REM ───────────────────────────────────────────────────────────────────────
:ERR
ECHO Batch file error -- please inform Pinnacle at 514-345-9578.
PAUSE
GOTO AGAIN
REM ───────────────────────────────────────────────────────────────────────
:INFO
IF NOT EXIST *.DOC GOTO AGAIN
INFO X
GOTO ERR
REM ───────────────────────────────────────────────────────────────────────
:MISC
MISC X
GOTO ERR
REM ───────────────────────────────────────────────────────────────────────
:CONFIG
CONFIG
GOTO AGAIN
REM ───────────────────────────────────────────────────────────────────────
:DEMO
CLS
ECHO ┌─────────────────────────────────────────────────────────────────────┐
ECHO │ NOTE: This is only a "first look" at Sapphire. It runs in "local" │
ECHO │ mode, without using the modem. Some functions (such as doors and │
ECHO │ file transfer) can not be used until you fully configure Sapphire. │
ECHO │·····································································│
ECHO │ If this is the first time you have run Sapphire, it will create a │
ECHO │ few files when it starts up. This takes less than a minute. │
ECHO │·····································································│
ECHO │ For this demonstration, you will be signed on AUTOMATICALLY. In │
ECHO │ regular operation, however, you will sign on as "SYSOP". │
ECHO └─────────────────────────────────────────────────────────────────────┘
PAUSE
SRUN DEMO
GOTO AGAIN
REM ───────────────────────────────────────────────────────────────────────
:LOCAL
SAPPHIRE LOCAL
GOTO ERR
REM ───────────────────────────────────────────────────────────────────────
:STD
SAPPHIRE
GOTO ERR
REM ───────────────────────────────────────────────────────────────────────
:DSZ
IF NOT EXIST DSZ.COM GOTO DSZ2
CLS
ECHO You have already dearchived the file-transfer software.
PAUSE
GOTO AGAIN
REM ·······································································
:DSZ2
CLS
ECHO ┌────────────────────────────────────────────────────────────────────┐
ECHO │ REMINDER: If you are using COM3 or COM4, file transfer won't work │
ECHO │ until you enter the DOS command SET DSZPORT=3 (or 4). │
ECHO └────────────────────────────────────────────────────────────────────┘
ECHO ┌────────────────────────────────────────────────────────────────────┐
ECHO │ NOTE: DSZ is a shareware product created by Omen Technology. The │
ECHO │ version provided with Sapphire is included by special arrangement │
ECHO │ with that company, but it is not a registered version. If you │
ECHO │ use the file-transfer software frequently and wish to obtain the │
ECHO │ latest version of DSZ, refer to the documentation that accompanies │
ECHO │ the DSZ program for ordering information. │
ECHO └────────────────────────────────────────────────────────────────────┘
PAUSE
CLS
ARCE DSZ
PAUSE
GOTO AGAIN
REM ───────────────────────────────────────────────────────────────────────
:QUIT